(find-tag-default): Copy text at point without properties.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 8d988f45341166a01ed2bd7e7acedd8a8f436f8c..e3154ae4c4a1293f2e3ebeaddc539c837a40f887 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -776,11 +776,12 @@ Assumes the tags table is the current buffer."
                               (save-excursion (end-of-line) (point))
                               t))
        (progn (goto-char (match-end 0))
-              (buffer-substring (point)
-                                (progn (forward-sexp -1)
-                                       (while (looking-at "\\s'")
-                                         (forward-char 1))
-                                       (point))))
+              (buffer-substring-no-properties
+                (point)
+                (progn (forward-sexp -1)
+                       (while (looking-at "\\s'")
+                         (forward-char 1))
+                       (point))))
       nil)))
 
 ;; Read a tag name from the minibuffer with defaulting and completion.